home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb35633.lsp < prev    next >
Text File  |  1998-03-15  |  6KB  |  178 lines
  1. ;=============356.33 Doppellagereinheit 6e
  2.  
  3. (EAITDBL "0035633")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:35633v1 ( / P1 Wi)
  8.    (EAITDBL "0035633")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.      (EAITvari)
  11.      (EAITvars)
  12.      (setvar "ORTHOMODE" 0)
  13.      (EAITbpt EAITofzen 4 nil)
  14.      (setq P1 (getpoint))
  15.      (if (= P1 nil)(setq P1 (EAITrpt)))
  16.      (setvar "ORTHOMODE" 1)
  17.      (setvar "OSMODE" 0)
  18.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  19.      (command EAITege (strcat EAITpfn "35633v1") P1 "" "" EAITofkei pause)
  20.  
  21.      (setq Wi (EAITbw))
  22.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 116.14)) 18.16) "" "" ""
  23.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  24.      )
  25.  
  26.      (EAITvarz2)
  27.      (princ)
  28.  
  29. );defun 35633v1
  30.  
  31.  
  32.  
  33. (defun C:35633v2 ( / P1 Wi)
  34.    (EAITDBL "0035633")
  35.    (princ (strcat "\n\n" EAITbez1))
  36.      (EAITvari)
  37.      (EAITvars)
  38.      (setvar "ORTHOMODE" 0)
  39.      (EAITbpt EAITofzen 4 nil)
  40.      (setq P1 (getpoint))
  41.      (if (= P1 nil)(setq P1 (EAITrpt)))
  42.      (setvar "ORTHOMODE" 1)
  43.      (setvar "OSMODE" 0)
  44.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  45.      (command EAITege (strcat EAITpfn "35633v2") P1 "" "" EAITofkei pause)
  46.  
  47.      (setq Wi (EAITbw))
  48.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 66.94)) 17.37) "" "" ""
  49.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  50.      )
  51.  
  52.      (EAITvarz2)
  53.      (princ)
  54.  
  55. );defun 35633v2
  56.  
  57.  
  58.  
  59. (defun C:35633v3 ( / P1 Wi)
  60.    (EAITDBL "0035633")
  61.    (princ (strcat "\n\n" EAITbez1))
  62.      (EAITvari)
  63.      (EAITvars)
  64.      (setvar "ORTHOMODE" 0)
  65.      (EAITbpt EAITofzen 4 nil)
  66.      (setq P1 (getpoint))
  67.      (if (= P1 nil)(setq P1 (EAITrpt)))
  68.      (setvar "ORTHOMODE" 1)
  69.      (setvar "OSMODE" 0)
  70.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  71.      (command EAITege (strcat EAITpfn "35633v3") P1 "" "" EAITofkei pause)
  72.  
  73.      (setq Wi (EAITbw))
  74.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 117.59)) 17.28) "" "" ""
  75.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  76.      )
  77.    (EAITDBL "0035624")
  78.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 22)) 35) "" "" ""
  79.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  80.      )
  81.  
  82.      (EAITvarz2)
  83.      (princ)
  84.  
  85. );defun 35633v3
  86.  
  87.  
  88.  
  89. (defun C:35633v4 ( / P1 Wi)
  90.    (EAITDBL "0035633")
  91.    (princ (strcat "\n\n" EAITbez1))
  92.      (EAITvari)
  93.      (EAITvars)
  94.      (setvar "ORTHOMODE" 0)
  95.      (EAITbpt EAITofzen 4 nil)
  96.      (setq P1 (getpoint))
  97.      (if (= P1 nil)(setq P1 (EAITrpt)))
  98.      (setvar "ORTHOMODE" 1)
  99.      (setvar "OSMODE" 0)
  100.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  101.      (command EAITege (strcat EAITpfn "35633v4") P1 "" "" EAITofkei pause)
  102.  
  103.      (setq Wi (EAITbw))
  104.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 64.59)) 16.6) "" "" ""
  105.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  106.      )
  107.    (EAITDBL "0035624")
  108.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 168)) 35) "" "" ""
  109.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  110.      )
  111.  
  112.      (EAITvarz2)
  113.      (princ)
  114.  
  115. );defun 35633v4
  116.  
  117.  
  118.  
  119. (defun C:35633s1 ( / P1 Wi)
  120.    (EAITDBL "0035633")
  121.    (princ (strcat "\n\n" EAITbez1))
  122.      (EAITvari)
  123.      (EAITvars)
  124.      (setvar "ORTHOMODE" 0)
  125.      (EAITbpt nil nil nil)
  126.      (setq P1 (getpoint))
  127.      (if (= P1 nil)(setq P1 (EAITrpt)))
  128.      (setvar "ORTHOMODE" 1)
  129.      (setvar "OSMODE" 0)
  130.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  131.      (command EAITege (strcat EAITpfn "35633s1") P1 "" "" EAITofkei pause)
  132.  
  133.      (setq Wi (EAITbw))
  134.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 37.86)) 24.06) "" "" ""
  135.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  136.      )
  137.    (EAITDBL "0035624")
  138.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 18)) 47) "" "" ""
  139.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  140.      )
  141.  
  142.      (EAITvarz2)
  143.      (princ)
  144.  
  145. );defun 35633s1
  146.  
  147.  
  148.  
  149. (defun C:35633d1 ( / P1 Wi)
  150.    (EAITDBL "0035633")
  151.    (princ (strcat "\n\n" EAITbez1))
  152.      (EAITvari)
  153.      (EAITvars)
  154.      (setvar "ORTHOMODE" 0)
  155.      (EAITbpt nil nil nil)
  156.      (setq P1 (getpoint))
  157.      (if (= P1 nil)(setq P1 (EAITrpt)))
  158.      (setvar "ORTHOMODE" 1)
  159.      (setvar "OSMODE" 0)
  160.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  161.      (command EAITege (strcat EAITpfn "35633d1") P1 "" "" EAITofkei pause)
  162.  
  163.      (setq Wi (EAITbw))
  164.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 31.91)) 20.14) "" "" ""
  165.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  166.      )
  167.    (EAITDBL "0035624")
  168.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 36)) 56) "" "" ""
  169.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  170.      )
  171.  
  172.      (EAITvarz2)
  173.      (princ)
  174.  
  175. );defun 35633d1
  176.  
  177. (princ)
  178.